use IO::All;
#print "Hello world!\n";
my $file = io->catfile('data')->slurp;
print $file;
